home *** CD-ROM | disk | FTP | other *** search
/ Kyoko 8203 / Kyoko 8203.iso / pc / clip.dxr / 00025_ÉrÉfÉIÉ{ÉäÉÖÅ[ÉÄ.ls < prev    next >
Encoding:
Text File  |  2003-03-10  |  333 b   |  15 lines
  1. global cdvoume
  2.  
  3. on exitFrame
  4.   if sprite(43).movieRate = 1 then
  5.     videovol = -50 + (cdvoume * 5)
  6.     setvolume(sprite(43), videovol)
  7.     set the volume of sound 1 to 0
  8.   else
  9.     if the memberNum of sprite 43 <> 8 then
  10.       set the memberNum of sprite 43 to 8
  11.     end if
  12.     set the volume of sound 1 to cdvoume * 19
  13.   end if
  14. end
  15.